Font Garden/Font Garden (Walnut Creek) (October 1995) (1995).iso/pc/fontutil/uncompre/fontimag/fontimag.0/background_2612.xml

Extensible Markup Language | 1994-07-19 | 13.4 KB | 261 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>2612</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3838.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3169.css" />
    <part>
        <id>19</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>130</left>
            <top>27</top>
            <right>260</right>
            <bottom>140</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>NotLoaded</name>
        <script></script>
    </part>
    <part>
        <id>20</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>0</left>
            <top>0</top>
            <right>303</right>
            <bottom>26</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>23</textSize>
        <textStyle>condense</textStyle>
        <textStyle>outline</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>33</textHeight>
        <name>FontName</name>
        <script></script>
    </part>
    <part>
        <id>21</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>303</left>
            <top>0</top>
            <right>352</right>
            <bottom>27</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>outline</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>13</textHeight>
        <name>LoadedInfo</name>
        <script></script>
    </part>
    <part>
        <id>23</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>167</left>
            <top>181</top>
            <right>352</right>
            <bottom>303</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Info</name>
        <script></script>
    </part>
    <part>
        <id>30</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>0</left>
            <top>27</top>
            <right>130</right>
            <bottom>140</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Loaded</name>
        <script>
on mouseDown
beep 2
repeat with curCard = 1 to number of cards of this bg
set cursor to busy
put short name of card curCard  after storage
put return after storage
end repeat
delete last char of storage
put storage into me
end mousedown</script>
    </part>
    <part>
        <id>36</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>0</left>
            <top>147</top>
            <right>352</right>
            <bottom>304</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>PrintSample</name>
        <script></script>
    </part>
    <part>
        <id>34</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>3</left>
            <top>216</top>
            <right>203</right>
            <bottom>303</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Names</name>
        <script>on mouseup
if the optionkey is down
then
toggleIt
exit mouseup
end if
set cursor to watch
put empty into me
----
put "BACKGROUND FIELDS:" & return after TEMP
repeat with x = 1 to the number of bg fields
put  name of bg field x after temp
if visible of bg field x = "false" then put " (Invisible)" after temp
put return after temp
end repeat
-----
put return & "BACKGROUND BUTTONS:" & return after temp
repeat with x = 1 to the number of bg buttons
put  name of bg button x after temp
if visible of bg button x = "false" then put " (Invisible)" after temp
put return after temp
end repeat
-----
put return & "CARD FIELDS:" & return after TEMP
repeat with x = 1 to the number of CARD fields
put  name of CARD field x after temp
if visible of CARD field x = "false" then put " (Invisible)" after temp
put return after temp
end repeat
-----
put return & "CARD BUTTONS:" & return after temp
repeat with x = 1 to the number of CARD buttons
put  name of CARD button x after temp
if visible of CARD button x = "false" then put " (Invisible)" after temp
put return after temp
end repeat
-----
put temp into me
end mouseup

on ToggleIt
currentLine
if the selectedText = empty then exit to HyperCard
get the value of the selectedLine
put it into name
if last word of name = "(invisible)"
then
delete last word of name
put name into the selectedline
show name
else
put name & " (invisible)" into the selectedline
hide name
end if
end ToggleIt

on currentLine
put (((the mouseV - top of the target) - 4) + scroll of the target)¬
div (textHeight of the target) + 1 into theLine
select char 1 to ((number of chars in (line theLine of target)) + 1)¬
of line theLine to (theLine + 1) of target
end currentLine

</script>
    </part>
    <content>
        <layer>background</layer>
        <id>23</id>
        <text>1.0©
March 1993
By Image Works Plus</text>
    </content>
    <content>
        <layer>background</layer>
        <id>34</id>
        <text>BACKGROUND FIELDS:
bkgnd field "NotLoaded" (Invisible)
bkgnd field "FontName"
bkgnd field "LoadedInfo"
bkgnd field "Info" (Invisible)
bkgnd field "Loaded" (invisible)
bkgnd field "PrintSample" (invisible)
bkgnd field "Names" (invisible)

BACKGROUND BUTTONS:

CARD FIELDS:

CARD BUTTONS:
</text>
    </content>
    <content>
        <layer>background</layer>
        <id>30</id>
        <text>Albatross
Alison
Andesite
Andromeda
Arial MT Bl
Arial MT Cn Ex Bd
Arial MT Ex Bd
Arial MT Ex Bd It
Arial Narrow
Arial Narrow Bd
Arial Narrow Bd It
Arial Narrow It
Ashley
Author
BalletEngraved
Baskerville MT
Baskerville MT Bd
Baskerville MT Bd It
Baskerville MT It
Bellerose
Biffo MT
BillsDingbats
BlackChancery
BlackForest
BODIDLYbold
Bodoni MT Cn Bd
Bodoni MT Ut Bd
Bodoni MT Ut Bd It
Book Antiqua
Book Antiqua Bd
Book Antiqua It
BookAntiqua Bd It
Bookman Old Style
Bookman Old Style Bd
Bookman Old Style Bd It
Bookman Old Style It
Braggadocio MT
Brassfield
Bubble
Calisto MT
Calisto MT Bd
Calisto MT Bd It
Calisto MT It
Cardiff
CarrickCaps
Carta
CartWright
Castellar MT
Caveman
Century Gothic
Century Gothic Bd
Century Gothic Bd It
Century Gothic It
Century Schoolbook
Century Schoolbook Bd
Century Schoolbook Bd It
Century Schoolbook It
Chester
Chicago
Clearface Gothic MT Bd
Cooper Black
Copperplate31ab
Courier
Crillee
Cuneifont
Deusex
DotsRight
Draftsman
Ellington MT Ex Bd
Elwood
Engravers MT
Faustus
Flintstone
Forte MT
Geneva
Genoa
Gordon
Granite Sans
GraphicLight
GreenCaps
Headline MT Bd
Helvetica
I Cooper Black Italic
IglooLaser
Imago Book
Imago Medium
InformalOblique
International
Judas
Kathlita
KiddieKorner
Klang MT
LeeCaps
Lithos Bold
Lithos Light
MarkerFeltThin
MarkerFeltWide
Marydale
Mazama TrueType
MemphisDisplay
Mercurius Bold Script MT
MiamiNights
Middleton
MktBold
Monaco
Monoline Script MT
Monotype Corsiva
Monotype Sorts
New Berolina MT
New York
NixonInChina
OakWood
Old Style MT Bd Ou
OSWALDblack
Palatino
Park Avenue
Pepita MT
Photina MT Ut Bd
Placard MT Bd Cn
Pointage
Premium TrueType
RegencyScriptFLF
ReliefDeco
ReynoldsCaps
RichardMurray
Rockwell Bd Cn
Rockwell Ex Bd
Rodchenko
Rounders
SaintFrancis
SansSerif
Script Bold MT
Sharktooth
ShockFont
Slant
StarTrekClassic
StarTrekClassicMovies
StarTrekTNGCrille
StarTrekTNGTitle
Stencil
Style
StymieLight
Symbol
TaxType
TaxType Mono
TaxType Pi
TaxTypeCondensed
Thomas
Times
Times New Roman Ex Bd
TimesNewRomanPS
TimesNewRomanPS Bold
ToulouseLautrec
VarahCaps
Viking
Wedgie
Will-Harris
ZipScript
Zirkle</text>
    </content>
    <content>
        <layer>background</layer>
        <id>19</id>
        <text>ClassicaHeavy
ClassicaRoman
Mappity
ParkHaven
WindsorDemi</text>
    </content>
    <name>Fonts</name>
    <script>on opencard
show card picture
end opencard

on closecard
if the short name of this card <> bg field "FontName"
then set the name of this card to bg field "FontName"
end closecard


on QuickView  -- ADD A SCRIPT TO MAKE SURE YOU ARE IN THE RIGHT BG
suspend messages
answer "Hold down mouse to stop." with "cancel" or "slower" or "faster"
if it is cancel then exit QuickView
else if it is slower
then
put number of this card into BegCard
repeat with x = BegCard to number of cards of this bg
if the mouse is not down then go card x
else if the mouse is down then exit QuickView
wait 20 ticks
end repeat
repeat with x = 1 to BegCard
if the mouse is not down then go card x
else if the mouse is down then exit QuickView
wait 20 ticks
end repeat
go to card BegCard
else if it is faster
then
put number of this card into BegCard
repeat with x = BegCard to number of cards of this bg
if the mouse is not down then go card x
else if the mouse is down then exit QuickView
end repeat
repeat with x = 1 to BegCard
if the mouse is not down then go card x
else if the mouse is down then exit QuickView
end repeat
go to card BegCard
end if
end QuickView


on DeleteIt
if the optionkey is not down then Answer "Are you sure you want to delete this Font Image?" with "Cancel" or "Yes"
if it = "Cancel" then exit DeleteIt
lock screen
push the next card of this bg
put short name of this card into NameTemp
put Number of this Card into NumberTemp
if bg field "LoadedInfo" = "Loaded"
then
Delete line NumberTemp of bg field "Loaded"
play tear
doMenu "Delete Card"
else
put the number of lines in bg field "Loaded" into SubtractThis
put NumberTemp - SubtractThis into TheNumber
Delete line TheNumber of bg field "NotLoaded"
play tear
doMenu "Delete Card"
end if
pop card
unlock screen with visual dissolve fast
end DeleteIt

on deleteAll
repeat
domenu "Delete Card"
end repeat
end deleteAll

on PrintIt
answer "Print a sample of just this font or a sample list of all fonts"¬
with "Cancel" or "All" or "This One"
if it is Cancel then exit PrintIt
if it = "All" then PrintList
else PrintSample
end printit

on PrintSample
set the printtextsize to 24
set the printtextfont to bg field fontname
put return & bg field fontname & return & bg field Printsample into TEMP
print TEMP
end printSample

</script>
</background>